perm filename RND2.SCR[SCR,LCS] blob
sn#260767 filedate 1977-01-26 generic text, type T, neo UTF8
< RND2 .SCR -- RANDOM NUMBER= 44
PLAY;
CLAR 0.00 0.10 B 1000.0 F1 0.00 F4 0.00
;PRINT(P1);< CLAR 1
CLAR 0.10 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 2
CLAR 0.20 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 3
CLAR 0.30 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 4
CLAR 0.40 0.30 DS*2 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 5
CLAR 0.70 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 6
CLAR 0.80 0.30 FS*2 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 7
CLAR 1.10 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 8
CLAR 1.20 0.30 A*2 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 9
CLAR 1.50 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 10
CLAR 1.60 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 11
CLAR 1.70 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 12
CLAR 1.80 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 13
CLAR 1.90 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 14
CLAR 2.00 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 15
CLAR 2.10 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 16
CLAR 2.20 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 17
CLAR 2.30 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 18
CLAR 2.40 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 19
CLAR 2.50 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 20
CLAR 2.60 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 21
CLAR 2.70 0.30 C*4 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 22
CLAR 3.00 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 23
CLAR 3.10 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 24
CLAR 3.20 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 25
CLAR 3.30 0.30 DS*4 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 26
CLAR 3.60 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 27
CLAR 3.70 0.30 FS*4 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 28
CLAR 4.00 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 29
CLAR 4.10 0.30 A*4 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 30
CLAR 4.40 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 31
CLAR 4.50 0.30 C*8 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 32
CLAR 4.80 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 33
CLAR 4.90 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 34
CLAR 5.00 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 35
CLAR 5.10 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 36
CLAR 5.20 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 37
CLAR 5.30 0.30 DS*8 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 38
CLAR 5.60 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 39
CLAR 5.70 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 40
CLAR 5.80 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 41
CLAR 5.90 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 42
CLAR 6.00 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 43
CLAR 6.10 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 44
CLAR 6.20 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 45
CLAR 6.30 0.30 FS*8 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 46
CLAR 6.60 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 47
CLAR 6.70 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 48
CLAR 6.80 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 49
CLAR 6.90 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 50
CLAR 7.00 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 51
CLAR 7.10 0.30 A*8 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 52
CLAR 7.40 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 53
CLAR 7.50 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 54
CLAR 7.60 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 55
CLAR 7.70 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 56
CLAR 7.80 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 57
CLAR 7.90 0.30 FS*8 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 58
CLAR 8.20 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 59
CLAR 8.30 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 60
CLAR 8.40 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 61
CLAR 8.50 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 62
CLAR 8.60 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 63
CLAR 8.70 0.30 DS*8 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 64
CLAR 9.00 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 65
CLAR 9.10 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 66
CLAR 9.20 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 67
CLAR 9.30 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 68
CLAR 9.40 0.30 C*8 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 69
CLAR 9.70 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 70
CLAR 9.80 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 71
CLAR 9.90 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 72
CLAR 10.00 0.30 A*4 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 73
CLAR 10.30 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 74
CLAR 10.40 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 75
CLAR 10.50 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 76
CLAR 10.60 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 77
CLAR 10.70 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 78
CLAR 10.80 0.30 FS*4 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 79
CLAR 11.10 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 80
CLAR 11.20 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 81
CLAR 11.30 0.30 DS*4 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 82
CLAR 11.60 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 83
CLAR 11.70 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 84
CLAR 11.80 0.30 C*4 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 85
CLAR 12.10 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 86
CLAR 12.20 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 87
CLAR 12.30 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 88
CLAR 12.40 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 89
CLAR 12.50 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 90
CLAR 12.60 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 91
CLAR 12.70 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 92
CLAR 12.80 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 93
CLAR 12.90 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 94
CLAR 13.00 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 95
CLAR 13.10 0.30 A*2 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 96
CLAR 13.40 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 97
CLAR 13.50 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 98
CLAR 13.60 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 99
CLAR 13.70 0.30 FS*2 333.33 F1 0.00 F3
;PRINT(P1);< CLAR 100
CLAR 14.00 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 101
CLAR 14.10 0.10 AS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 102
CLAR 14.20 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 103
CLAR 14.30 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 104
CLAR 14.40 0.10 A 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 105
CLAR 14.50 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 106
CLAR 14.60 0.10 G 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 107
CLAR 14.70 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 108
CLAR 14.80 0.10 B 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 109
CLAR 14.90 0.10 GS 1000.0 F1 0.00 F4
;PRINT(P1);< CLAR 110
FINISH; < RND2 .SCR